home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00134_Midias- arraste indicador.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  560 b   |  20 lines
  1. on mouseDown me
  2.   global gLinhasMidia
  3.   put the mouseV into iniV
  4.   put iniV into lastV
  5.   put the locV of sprite (the spriteNum of me) into iniLoc
  6.   repeat while the mouseDown
  7.     put the mouseV into y
  8.     if y < 32 then put 32 into y
  9.     if y > 80 then put 80 into y
  10.     if y <> lastV and gLinhasMidia > 6 then
  11.       put y into lastV
  12.       set the locV of sprite (the spriteNum of me) to┬¼
  13.           y - iniV + iniLoc
  14.       put (y-32) * (gLinhasMidia - 5) / (80 - 32) into y
  15.       listaMidiasSubTextos y, true
  16.       updateStage
  17.     end if
  18.     
  19.   end repeat
  20. end